home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 September / LiquidLibrary 2005 Sep - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / pdf_draw.ps < prev    next >
Text File  |  2003-01-03  |  35KB  |  1,141 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % pdf_draw.ps
  8. % PDF drawing operations (graphics, text, and images).
  9.  
  10. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  11. .currentglobal true .setglobal
  12. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  13. GS_PDF_ProcSet begin
  14. pdfdict begin
  15.  
  16. % For simplicity, we use a single interpretation dictionary for all
  17. % PDF graphics operations, even though this is too liberal.
  18. /drawopdict 100 dict def
  19.  
  20. % ================================ Graphics ================================ %
  21.  
  22. % ---------------- Functions ---------------- %
  23.  
  24. % Note that resolvefunction converts a PDF Function to a PostScript Function;
  25. % resolve*fnproc converts a PDF function to a PostScript procedure.
  26.  
  27. /fnrdict mark
  28.   0 { .resolvefn0 }
  29.   2 { }
  30.   3 { .resolvefn3 }
  31.   4 { .resolvefn4 }
  32. .dicttomark readonly def
  33.  
  34. /.resolvefn0 {
  35.         % Don't lose our place in PDFfile.
  36.   PDFfile fileposition exch
  37.   dup true resolvestream
  38.         % The stream isn't positionable, so read all the data now.
  39.         % Stack: filepos fndict stream
  40.   1 index /Range oget length 2 idiv 2 index /BitsPerSample oget mul
  41.   2 index /Size oget { mul } forall
  42.   7 add 8 idiv string
  43.   1 index exch readstring pop exch closefile
  44.         % Stack: filepos fndict data
  45.   exch dup length 1 add dict .copydict
  46.   dup /DataSource 4 -1 roll put
  47.   exch PDFfile exch setfileposition
  48. } bdef
  49.  
  50. /.resolvefn3 {
  51.   dup length dict .copydict
  52.   dup /Bounds 2 copy knownoget { put } { pop pop } ifelse
  53.   dup /Encode 2 copy knownoget { put } { pop pop } ifelse
  54.   dup /Functions 2 copy oget mark exch dup {
  55.     oforce .resolvefn
  56.   } forall
  57.   counttomark -1 roll astore exch pop put
  58. } bdef
  59.  
  60. /.resolvefn4 {
  61.   PDFfile fileposition exch             % filepos fndict
  62.   dup true resolvestream                % filepos fndict stream
  63.   exch dup length dict copy             % filepos stream fndict2
  64.   dup /Function undef                   % filepos stream fndict2
  65.   exch dup token not {
  66.     () /rangecheck cvx signalerror
  67.   } if
  68.   exch token {
  69.     /rangecheck cvx signalerror
  70.   } if
  71.         % Use .bind to avoid idiom recognition.
  72.   .bind
  73.   1 index /Function 3 -1 roll put
  74.   exch PDFfile exch setfileposition
  75. } bdef
  76. currentdict /tfopdict undef
  77.  
  78. /.resolvefn {        % <fndict> .resolvefn <fndict'>
  79.   dup /FunctionType oget //fnrdict exch get exec
  80. } bdef
  81.  
  82. /resolvefunction {    % <fndict> resolvefunction <function>
  83.   .resolvefn
  84.   DEBUG { (%Function: ) print dup === flush } if
  85. } bdef
  86.  
  87. /resolvefnproc {    % <fndict> resolvefnproc <proc>
  88.   resolvefunction .buildfunction
  89. } bdef
  90.  
  91. /resolveidfnproc {    % <fndict> resolveidfnproc <proc>
  92.   dup /Identity eq { pop { } } { resolvefnproc } ifelse
  93. } bdef
  94.  
  95. /resolvedefaultfnproc {    % <fndict> <default> resolved'fnproc <proc>
  96.   1 index /Default eq { exch pop } { pop resolveidfnproc } ifelse
  97. } bdef
  98.  
  99. % ---------------- Shadings ---------------- %
  100.  
  101. /shrdict mark
  102.   /ColorSpace {
  103.     resolvecolorspace
  104.   }
  105.   /Function {
  106.     dup type /dicttype eq {
  107.       resolvefunction
  108.     } {
  109.       [ exch { oforce resolvefunction } forall ]
  110.     } ifelse
  111.   }
  112. .dicttomark readonly def
  113.  
  114. /resolveshading {    % <shadingstream> resolveshading <shading>
  115.   PDFfile fileposition exch
  116.   mark exch {
  117.     oforce //shrdict 2 index .knownget { exec } if
  118.   } forall .dicttomark
  119.   dup /ShadingType get 4 ge {
  120.     dup dup true resolvestream
  121.         % Make a reusable stream so that the shading doesn't
  122.         % reposition PDFfile at unexpected times.
  123.     /ReusableStreamDecode filter /DataSource exch put
  124.   } if exch PDFfile exch setfileposition
  125. } bdef
  126. /resolvesh {        % <shname> resolveshading <shading>
  127.   Page /Shading rget {
  128.     resolveshading
  129.   } {
  130.     null
  131.   }ifelse
  132. } bdef
  133.  
  134. % ---------------- Halftones ---------------- %
  135.  
  136. /spotfunctions mark
  137.   /Round {
  138.     abs exch abs 2 copy add 1 le {
  139.       dup mul exch dup mul add 1 exch sub 
  140.     } {
  141.       1 sub dup mul exch 1 sub dup mul add 1 sub
  142.     } ifelse
  143.   }
  144.   /Diamond {
  145.     abs exch abs 2 copy add .75 le {
  146.       dup mul exch dup mul add 1 exch sub
  147.     } {
  148.       2 copy add 1.23 le {
  149.     .85 mul add 1 exch sub
  150.       } {
  151.     1 sub dup mul exch 1 sub dup mul add 1 sub
  152.       } ifelse
  153.     } ifelse
  154.   }
  155.   /Ellipse {
  156.     abs exch abs 2 copy 3 mul exch 4 mul add 3 sub dup 0 lt {
  157.       pop dup mul exch .75 div dup mul add 4 div 1 exch sub
  158.     } {
  159.       dup 1 gt {
  160.     pop 1 exch sub dup mul exch 1 exch sub
  161.     .75 div dup mul add 4 div 1 sub
  162.       } {
  163.     .5 exch sub exch pop exch pop
  164.       } ifelse
  165.     } ifelse
  166.   }
  167.   /EllipseA { dup mul .9 mul exch dup mul add 1 exch sub }
  168.   /InvertedEllipseA { dup mul .9 mul exch dup mul add 1 sub }
  169.   /EllipseB { dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub }
  170.   /EllipseC { dup mul .9 mul exch dup mul add 1 exch sub }
  171.   /InvertedEllipseC { dup mul .9 mul exch dup mul add 1 sub }
  172.   /Line { exch pop abs neg }
  173.   /LineX { pop }
  174.   /LineY { exch pop }
  175.   /Square { abs exch abs 2 copy lt { exch } if pop neg }
  176.   /Cross { abs exch abs 2 copy gt { exch } if pop neg }
  177.   /Rhomboid { abs exch abs 0.9 mul add 2 div }
  178.   /DoubleDot { 2 {360 mul sin 2 div exch } repeat add }
  179.   /InvertedDoubleDot { 2 {360 mul sin 2 div exch } repeat add neg }
  180.   /SimpleDot { dup mul exch dup mul add 1 exch sub }
  181.   /InvertedSimpleDot { dup mul exch dup mul add 1 sub }
  182.   /CosineDot { 180 mul cos exch 180 mul cos add 2 div }
  183.   /Double { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add }
  184.   /InvertedDouble {
  185.     exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add neg
  186.   }
  187. .dicttomark readonly def
  188.  
  189. /htrdict mark
  190.   1 { .resolveht1 }
  191.   5 { .resolveht5 }
  192.     % We don't support types 6, 10, or 16 yet.
  193. .dicttomark readonly def
  194.  
  195. /.resolveht1 {
  196.   mark exch {
  197.     oforce
  198.     1 index /SpotFunction eq {
  199.       dup type /nametype eq
  200.     { //spotfunctions exch get } { resolvefnproc }
  201.       ifelse
  202.     } {
  203.       1 index /TransferFunction eq {
  204.     resolveidfnproc
  205.       } if
  206.     } ifelse
  207.   } forall .dicttomark
  208. } bdef
  209.  
  210. /.resolveht5 {
  211.   mark exch {
  212.     oforce dup type /dicttype eq { resolvehalftone } if
  213.   } forall .dicttomark
  214. } bdef
  215.  
  216. /resolvehalftone {    % <dict> resolvehalftone <halftone>
  217.   dup /HalftoneType get //htrdict exch get exec
  218. } bdef
  219.  
  220. % ---------------- Graphics state management ---------------- %
  221.  
  222. /cmmatrix matrix def
  223. drawopdict begin
  224.             % Graphics state stack
  225.   /q { q } def
  226.   /Q { Q } def
  227.             % Graphics state setting
  228.   /cm { //cmmatrix astore concat } def
  229.   /i /setflat load def
  230.   /J /setlinecap load def
  231.   /d /setdash load def
  232.   /j /setlinejoin load def
  233.   /w /setlinewidth load def
  234.   /M /setmiterlimit load def
  235.   /gs { gs } def
  236. end
  237.  
  238. % Each entry in this dictionary is
  239. %    <gsres> <value> -proc- <gsres>
  240. /gsbg {
  241.   /BGDefault load resolvedefaultfnproc setblackgeneration
  242. } bdef
  243. /gsucr {
  244.   /UCRDefault load resolvedefaultfnproc setundercolorremoval
  245. } bdef
  246. /gstr {
  247.   dup type /arraytype eq {
  248.     { oforce /TRDefault load resolvedefaultfnproc } forall
  249.     setcolortransfer
  250.   } {
  251.     /TRDefault load resolvedefaultfnproc settransfer
  252.   } ifelse
  253. } bdef
  254. /gsparamdict mark
  255.   /SA { setstrokeadjust }
  256.   /OP { 1 index /op known not { dup op } if OP }
  257.     % The PDF 1.3 specification says that the name /Default is only
  258.     % recognized for {BG,UCR,TR}2.  However, PDF 1.3 files produced
  259.     % by Adobe Acrobat Distiller 4.0 for Windows use the name /Default
  260.     % with the older keys, so we have to implement this.
  261.   /BG { 1 index /BG2 known { pop } { gsbg } ifelse }
  262.   /UCR { 1 index /UCR2 known { pop } { gsucr } ifelse }
  263.   /TR { 1 index /TR2 known { pop } { gstr } ifelse }
  264.   /HT {
  265.     dup /Default eq {
  266.       pop .setdefaultscreen
  267.     } {
  268.     %****** DOESN'T IMPLEMENT THE STREAM CASE YET ******
  269.       resolvehalftone sethalftone
  270.     } ifelse
  271.   }
  272.   /HTP {
  273.     % HTP may be present even if this isn't a DPS interpreter.
  274.     /sethalftonephase where { pop aload pop sethalftonephase } { pop } ifelse
  275.   }
  276.     % PDF 1.3
  277.   /Font { aload pop Tf }
  278.   /LW { setlinewidth }
  279.   /LC { setlinecap }
  280.   /LJ { setlinejoin }
  281.   /ML { setmiterlimit }
  282.   /D { aload pop setdash }
  283.   /RI { ri }
  284.   /op { op }
  285.   /OPM { OPM }
  286.   /BG2 { gsbg }
  287.   /UCR2 { gsucr }
  288.   /TR2 { gstr }
  289.   /FL { setflat }
  290.   /SM {
  291.     % SM may be present even if this is only a Level 2 interpreter.
  292.     /setsmoothness where { pop setsmoothness } { pop } ifelse
  293.   }
  294.     % PDF 1.4
  295.     % All of these require the "transparency" feature in the interpreter.
  296.   /ca { ca }
  297.   /CA { CA }
  298.   /SMask { gssmask }
  299.   /AIS { AIS }
  300.   /BM { BM }
  301.   /TK { TK }
  302. .dicttomark readonly def
  303. /gs {            % <gsres> gs -
  304.   Page /ExtGState rget {
  305.     % We keep the dictionary on the stack during the forall so that
  306.     % keys that interact with each other have access to it.
  307.     dup {
  308.       oforce exch gsparamdict exch .knownget { exec } { pop } ifelse
  309.     } forall pop
  310.   } if
  311. } bdef
  312.  
  313. % ------ Transparency support ------ %
  314.  
  315. /gssmask {
  316.   dup /None eq {
  317.     pop null
  318.   } {
  319.     % Preprocess the SMask value into a parameter dictionary for
  320.     % .begintransparencymask, with added /BBox and /Draw keys.
  321.     mark exch        % Stack: mark smaskdict
  322.     dup /S oget /Subtype exch 3 2 roll
  323.             % Stack: mark ... smaskdict
  324.     dup /BC knownoget { /Background exch 3 2 roll } if
  325.     dup /TR knownoget {
  326.       resolveidfnproc /TransferFunction exch 3 2 roll
  327.     } if    
  328.     dup /G oget dup /BBox oget /BBox exch 4 2 roll
  329.     /.execmaskgroup cvx 2 packedarray cvx /Draw exch 3 2 roll
  330.     pop .dicttomark
  331.   } ifelse SMask
  332. } bdef
  333.  
  334. % This procedure is called to actually render the soft mask.
  335. /.execmaskgroup {    % <masknum> <paramdict> <formdict> .execmaskgroup -
  336.     % Save our place in PDFfile, and do a gsave to avoid resetting
  337.     % the color space.
  338.   gsave PDFfile fileposition 4 1 roll
  339.     % We have to select the group's color space so that the
  340.     % background color will be interpreted correctly.
  341.   dup /Group oget /CS knownoget { csresolve setcolorspace } if
  342.   exch dup /BBox get aload pop .begintransparencymask {
  343.     dup /Resources knownoget { oforce } { 0 dict } ifelse
  344.     exch false resolvestream
  345.     .execgroup .endtransparencymask
  346.   } .internalstopped {
  347.     .discardtransparencymask stop
  348.   } if
  349.   PDFfile exch setfileposition grestore
  350. } bdef
  351. % Paint a Form+Group XObject, either for a transparency mask or for a Do.
  352. /.execgroup {        % <resdict> <stream> .execgroup -
  353.   gsave
  354.   1 .setopacityalpha 1 .setshapealpha
  355.   0 .inittransparencymask 1 .inittransparencymask
  356.   /Compatible .setblendmode
  357.     % Execute the body of the Form, similar to DoForm.
  358.   pdfopdict .pdfruncontext
  359.   grestore
  360. } bdef
  361.  
  362. /.beginformgroup {    % groupdict bbox .beginformgroup -
  363.   exch mark exch            % bbox mark groupdict
  364.   dup /CS knownoget { csresolve setcolorspace } if
  365.   dup /I knownoget { /Isolated exch 3 2 roll } if
  366.   dup /K knownoget { /Knockout exch 3 2 roll } if
  367.   pop .dicttomark
  368.         % Stack: bbox paramdict
  369.   exch aload pop
  370.   .begintransparencygroup
  371. } bdef
  372.  
  373. % .paintgroupform implements the Form PaintProc in the case where the
  374. % Form XObject dictionary includes a Group key.  See .paintform below.
  375. /.paintgroupform {    % <resdict> <stream> <formdict> .paintgroupform -
  376.   dup /Group oget exch /BBox oget
  377.         % Stack: resdict stream groupdict bbox
  378.   .beginformgroup {
  379.     .execgroup
  380.   } .internalstopped {
  381.     .discardtransparencygroup stop
  382.   } if .endtransparencygroup
  383. } bdef
  384.  
  385. % Make an ImageType 103 (soft-masked) image.
  386. /makesoftmaskimage {    % <datasource> <imagemask> <SMask> makesoftmaskimage
  387.             %   <datasource> <imagemask>, updates currentdict =
  388.             %   imagedict
  389.         % See the ImageType 3 case of makemaskimage below.
  390.         % SMask is a stream, another Image XObject.
  391.         % Stack: datasource imagemask(false) smaskstreamdict
  392.   PDFfile fileposition exch
  393.   dup /Matte knownoget { /Matte exch def } if
  394.   dup length dict makeimagedict pop
  395.         % In order to prevent the two data sources from being
  396.         % aliased, we need to make at least one a reusable stream.
  397.         % We pick the mask, since it's smaller (in case we need to
  398.         % read all its data now).
  399.         % Stack: datasource imagemask(false) savedpos
  400.         % maskdict is currentdict
  401.   /DataSource DataSource mark
  402.     /Intent 1
  403.     /AsyncRead true
  404.   .dicttomark .reusablestreamdecode def
  405.   PDFfile exch setfileposition
  406.   currentdict end currentdict end
  407.   5 dict begin
  408.   /ImageType 103 def
  409.   /DataDict exch def
  410.   dup /InterleaveType 3 put
  411.   DataDict /Matte .knownget {
  412.     /Matte exch def
  413.   } if
  414.   AlphaIsShape { /ShapeMaskDict } { /OpacityMaskDict } ifelse exch def
  415.   /ColorSpace DataDict /ColorSpace get def
  416. } bdef
  417.  
  418. % ---------------- Color setting ---------------- %
  419.  
  420. /01_1 [0 1] readonly def
  421. /01_3 [0 1 0 1 0 1] readonly def
  422. /01_4 [0 1 0 1 0 1 0 1] readonly def
  423.  
  424. % The keys here are resolved (PostScript, not PDF) color space names.
  425. /csncompdict mark
  426.   /DeviceGray { pop 1 }
  427.   /DeviceRGB { pop 3 }
  428.   /DeviceCMYK { pop 4 }
  429.   /CIEBasedA { pop 1 }
  430.   /CIEBasedABC { pop 3 }
  431.   /ICCBased { 1 oget /N oget }
  432.   /Separation { pop 1 }
  433.   /DeviceN { 1 oget length }
  434. .dicttomark readonly def
  435.  
  436. % Perhaps some of the values in the following need to be modified
  437. % depending on the WhitePoint value....
  438. /cslabinit mark
  439.   /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
  440.   /MatrixABC [1 1 1 1 0 0 0 0 -1]
  441.   /DecodeLMN [
  442.     {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse
  443.      0.9505 mul} bind
  444.     {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse
  445.      } bind
  446.     {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse
  447.      1.0890 mul} bind
  448.   ]
  449. .dicttomark readonly def
  450.  
  451. /csrdict mark
  452.   /DeviceGray {
  453.     /DefaultGray Page /ColorSpace rget { exch pop resolvecolorspace } if
  454.   }
  455.   /DeviceRGB {
  456.     /DefaultRGB Page /ColorSpace rget { exch pop resolvecolorspace } if
  457.   }
  458.   /DeviceCMYK { }
  459.   /CalGray {
  460.     1 oget 6 dict begin
  461.     dup /Gamma knownoget {
  462.       /exp load 2 packedarray cvx /DecodeA exch def
  463.     } if
  464.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  465.     dup /WhitePoint knownoget { /WhitePoint exch def } if
  466.     pop [ /CIEBasedA currentdict end ]
  467.   }
  468.   /CalRGB {
  469.     1 oget 6 dict begin
  470.     dup /Gamma knownoget {
  471.       [ exch { /exp load 2 packedarray cvx } forall
  472.       ] /DecodeABC exch def
  473.     } if
  474.     dup /Matrix knownoget { /MatrixABC exch def } if
  475.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  476.     dup /WhitePoint knownoget { /WhitePoint exch def } if
  477.     pop [ /CIEBasedABC currentdict end ]
  478.   }
  479.   /CalCMYK {
  480.     pop /DeviceCMYK        % not defined by Adobe
  481.   }
  482.   /Lab {
  483.     1 oget 6 dict begin
  484.     dup /Range knownoget not { [-100 100 -100 100] } if
  485.     [0 100 null null null null] dup 2 4 -1 roll putinterval
  486.     /RangeABC exch def
  487.     //cslabinit { def } forall
  488.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  489.     dup /WhitePoint knownoget { /WhitePoint exch def } if
  490.     pop [ /CIEBasedABC currentdict end ]
  491.   }
  492.   /ICCBased {
  493.     PDFfile fileposition exch
  494.     dup dup 1 oget
  495.     mark exch { oforce } forall .dicttomark
  496.     dup dup true resolvestream
  497.     /ReusableStreamDecode filter /DataSource exch put
  498.     1 exch put
  499.     exch PDFfile exch setfileposition
  500.   } bind
  501.   /Separation {
  502.     aload pop exch oforce resolvecolorspace exch oforce resolvefnproc
  503.     4 array astore
  504.   }
  505.   /DeviceN {
  506.     0 4 getinterval                    % ignore attributes
  507.     aload pop 3 -1 roll oforce
  508.     3 -1 roll oforce resolvecolorspace
  509.     3 -1 roll oforce resolvefnproc
  510.     4 array astore
  511.   }
  512.   /Indexed {
  513.     aload pop 3 -1 roll oforce resolvecolorspace
  514.         % If the underlying space is a Lab space, we must scale
  515.         % the output of the lookup table as part of DecodeABC.
  516.     dup dup type /arraytype eq { 0 get } if /CIEBasedABC eq {
  517.       dup 1 get /DecodeLMN known {
  518.     1 get dup length dict copy
  519.     begin /DecodeABC [ 0 2 4 {
  520.       RangeABC 1 index 1 add get RangeABC 2 index get sub /mul load
  521.       RangeABC 3 index get /add load
  522.       DecodeABC 6 -1 roll 2 idiv get [ 6 1 roll aload pop ] cvx
  523.     } for ] def
  524.     /RangeABC //01_3 def
  525.     currentdict end /CIEBasedABC exch 2 array astore
  526.       } if
  527.     } if
  528.     3 1 roll
  529.     oforce dup type /stringtype ne {
  530.         % The color lookup table is a stream.
  531.         % Get its contents.  Don't lose our place in PDFfile.
  532.         % Stack: /Indexed basespace hival lookup
  533.     PDFfile fileposition 5 1 roll true resolvestream
  534.         % Stack: filepos /Indexed basespace hival lookupstream
  535.     1 index 1 add
  536.         % Stack: filepos /Indexed basespace hival lookupstream len
  537.     3 index
  538.       dup dup type /arraytype eq { 0 get } if
  539.       //csncompdict exch get exec mul
  540.     string readstring pop
  541.         % Stack: filepos /Indexed basespace hival table
  542.     5 -1 roll PDFfile exch setfileposition
  543.     }
  544.     if 4 array astore
  545.   }
  546.   /Pattern {
  547.     dup type /nametype ne {
  548.       dup length 1 gt {
  549.     1 oget resolvecolorspace
  550.     /Pattern exch 2 array astore
  551.       } if
  552.     } if
  553.   }
  554. .dicttomark readonly def
  555.  
  556. /cssubst {        % <csname> cssubst <cspace'> true
  557.             % <csname> cssubst false
  558.   dup resolvecolorspace
  559.   dup 1 index ne { exch pop true } { pop pop false } ifelse
  560. } bdef
  561.  
  562. /csnames mark
  563.   /DeviceGray dup  /DeviceRGB dup  /DeviceCMYK dup  /Pattern dup
  564. .dicttomark readonly def
  565. /csresolve {        % <csresourcename> csresolve <cspace>
  566.   dup Page /ColorSpace rget {
  567.     exch pop resolvecolorspace
  568.   } {
  569.     //csnames 1 index known not { /undefined cvx signalerror } if
  570.   } ifelse
  571. } bdef
  572. /resolvecolorspace {    % <cspace> resolvecolorspace <cspace'>
  573.   dup dup type /arraytype eq { 0 get } if
  574.   //csrdict exch .knownget {
  575.     exec dup type /nametype ne { dup length 1 eq { 0 get } if } if
  576.   } {
  577.     csresolve
  578.   } ifelse
  579. } bdef
  580.  
  581. /scresolve {    % <c0> ... scresolve <multi>
  582.         % We can't really make sc[n] and SC[N] work, because
  583.         % the color space information isn't available at
  584.         % conversion time; so we hack it by assuming that
  585.         % all the operands on the stack are used, and that
  586.         % if the top operand is a name, it's a Pattern resource.
  587.   dup type /nametype eq
  588.     { Page /Pattern rget { resolvepattern } { null } ifelse }
  589.   if
  590.   dup type /dicttype eq {
  591.         % Check the PaintType, if any (shading patterns don't
  592.         % have one).
  593.     dup /PaintType .knownget { 2 eq } { false } ifelse
  594.   } {
  595.     .pdfcount 1 gt
  596.   } ifelse
  597. } bdef
  598.  
  599. /.pdfpaintproc {         % <patdict> <resdict> .pdfpaintproc -
  600.   DEBUG { (%Begin PaintProc) = flush } if
  601.     % For uncolored patterns, we have to unbind the current
  602.     % color and color space before running the PaintProc.
  603.     % There's no harm in doing this for colored patterns,
  604.     % so for simplicity, we always do it.
  605.   PDFfile fileposition 3 1 roll
  606.   q
  607.   null sc1 null SC1
  608.   exch false resolvestream pdfopdict .pdfruncontext
  609.   Q
  610.   DEBUG { (%End PaintProc) = flush } if
  611.   PDFfile exch setfileposition
  612. } bdef
  613.  
  614. /resolvepattern {    % <patternstreamdict> resolvepattern <patterndict>
  615.         % Don't do the resolvestream now: just capture the data
  616.         % from the file if necessary.
  617.   dup length dict copy
  618.   dup /FilePosition .knownget {
  619.     1 index /File get dup fileposition 3 1 roll
  620.         % Stack: dict savepos pos file
  621.     dup 3 -1 roll setfileposition
  622.     dup 3 index /Length oget string readstring pop
  623.         % Stack: dict savepos file string
  624.     3 1 roll exch setfileposition
  625.     1 index /File 3 -1 roll put
  626.     dup /FilePosition undef
  627.   } if
  628.   dup /Shading knownoget {
  629.     resolveshading 1 index /Shading 3 -1 roll put
  630.   } if
  631.   dup /PaintProc [
  632.         % Bind the resource dictionary into the PaintProc.
  633.     2 index /Resources knownoget { oforce } { 0 dict } ifelse
  634.     /.pdfpaintproc cvx
  635.   ] cvx put
  636.   DEBUG {
  637.     (%Pattern: ) print dup === flush
  638.   } if
  639. } bdef
  640.  
  641. drawopdict begin
  642.   /g { /DeviceGray cssubst { cs sc1 } { g } ifelse } bdef
  643.   /rg { /DeviceRGB cssubst { cs sc* } { rg } ifelse } bdef
  644.   /k { k } bdef
  645.   /cs { csresolve cs } bdef
  646.   /sc { scresolve { sc* } { sc1 } ifelse } bdef
  647.   /scn /sc load def
  648.   /G { /DeviceGray cssubst { CS SC1 } { G } ifelse } bdef
  649.   /RG { /DeviceRGB cssubst { CS SC* } { RG } ifelse } bdef
  650.   /K { K } bdef
  651.   /CS { csresolve CS } bdef
  652.   /ri { ri } bdef
  653.   /SC { scresolve { SC* } { SC1 } ifelse } bdef
  654.   /SCN /SC load def
  655. end
  656.  
  657. % ---------------- Paths ---------------- %
  658.  
  659. drawopdict begin
  660.             % Path construction
  661.   /m /moveto load def
  662.   /l /lineto load def
  663.   /c /curveto load def
  664.   /v { currentpoint 6 2 roll curveto } def
  665.   /y { 2 copy curveto } def
  666.   /re {
  667.    4 2 roll moveto  exch dup 0 rlineto  0 3 -1 roll rlineto  neg 0 rlineto
  668.    closepath
  669.   } def
  670.   /h /closepath load def
  671.             % Path painting and clipping
  672.   /n { n } def
  673.   /S { S } def
  674.   /s { s } def
  675.   /f { f } def
  676.   /f* { f* } def
  677.   /B { B } def
  678.   /b { b } def
  679.   /B* { B* } def
  680.   /b* { b* } def
  681.   /W { W } def
  682.   /W* { W* } def
  683.   /sh { resolvesh shfill } def
  684. end
  685.  
  686. % ---------------- XObjects ---------------- %
  687.  
  688. /xobjectprocs mark        % <dict> -proc- -
  689.   /Image { DoImage }
  690.   /Form { DoForm }
  691.   /PS { DoPS }
  692. .dicttomark readonly def
  693.  
  694. % Note that the keys in defaultdecodedict are resolved (PostScript, not PDF)
  695. % color space names.
  696. /defaultdecodedict mark
  697.   /DeviceGray { pop //01_1 } bind
  698.   /DeviceRGB { pop //01_3 } bind
  699.   /DeviceCMYK { pop //01_4 } bind
  700.   /CIEBasedA { 1 get /RangeA .knownget not { //01_1 } if } bind
  701.   /CIEBasedABC { 1 get /RangeABC .knownget not { //01_3 } if } bind
  702.   /ICCBased {
  703.      1 oget dup /Range .knownget {
  704.        exch pop
  705.      }{
  706.        /N get [ exch {0 1} repeat ] readonly
  707.      } ifelse
  708.   } bind
  709.   /Separation { pop //01_1 } bind
  710.   /DeviceN {
  711.     1 oget length [ exch {0 1} repeat ] readonly
  712.   } bind
  713.   /Indexed {
  714.     pop [ 0 1 BitsPerComponent bitshift 1 sub ]
  715.   } bind
  716. .dicttomark readonly def
  717.  
  718. /checkaltimage {    % <resdict> checkaltimage <resdict[']>
  719.   Printed {
  720.     dup /Alternates knownoget {
  721.       {
  722.     dup /DefaultForPrinting knownoget {
  723.       {
  724.         /Image oget exch pop exit
  725.       } {
  726.         pop
  727.       } ifelse
  728.     } {
  729.       pop
  730.     } ifelse
  731.       } forall
  732.     } if
  733.   } if
  734. } bdef
  735.  
  736. /makeimagedict {    % <resdict> <newdict> makeimagedict <imagemask>
  737.             % On return, newdict' is currentdict
  738.   begin
  739.   /Width 2 copy oget def
  740.   /Height 2 copy oget def
  741.   /BitsPerComponent 2 copy oget def
  742.   /Interpolate 2 copy knownoget { def } { pop } ifelse
  743.   makeimagekeys
  744. } bdef
  745. /makeimagekeys {    % <resdict> makeimagekeys <imagemask>
  746.         % newdict is currentdict
  747.         % Assumes Width, Height, BPC, Interpolate already copied.
  748.   /ImageType 1 def
  749.   /ImageMatrix Width 0 0
  750.         % Handle 0-height images specially.
  751.     Height dup 0 eq { pop 1 } if neg 0 1 index neg
  752.     6 array astore def
  753.   dup /ImageMask knownoget dup { and } if {
  754.         % Image mask
  755.         % Decode is required for the PostScript image operators.
  756.                 % AI8 writes bogus decode array [0 1 0 0 0 0 0 0]
  757.     /Decode 2 copy knownoget { 0 2 getinterval } { //01_1 } ifelse def
  758.         % BitsPerComponent may be missing for masks.
  759.         % The spec requires it, but some producers omit it, and
  760.         % Acrobat Reader doesn't care.
  761.     /BitsPerComponent 2 copy known { pop } { 1 def } ifelse
  762.     true
  763.   } {
  764.         % Opaque image
  765.     dup /ColorSpace oget resolvecolorspace /ColorSpace exch def
  766.         % Decode is required for the PostScript image operators.
  767.     /Decode 2 copy knownoget not {
  768.       ColorSpace //defaultdecodedict
  769.       ColorSpace dup type /arraytype eq { 0 get } if get exec
  770.     } if def
  771.     false
  772.   } ifelse
  773.         % Even though we're going to read data,
  774.         % pass false to resolvestream so that
  775.         % it doesn't try to use Length (which may not be present).
  776.   exch false resolvestream /DataSource exch def
  777. } bdef
  778.  
  779. /DoImage {
  780.   checkaltimage dup length 6 add dict
  781.   1 index /SMask knownoget { 1 index exch /SMask exch put } if
  782.   1 index /Mask knownoget { 1 index exch /Mask exch put } if
  783.   makeimagedict doimage
  784. } bdef
  785. /makemaskimage {    % <datasource> <imagemask> <Mask> makemaskimage
  786.             %   <datasource> <imagemask>, updates currentdict =
  787.             %   imagedict
  788.   dup type /arraytype eq {
  789.     /ImageType 4 def
  790.     /MaskColor exch def
  791.   } {
  792.         % Mask is a stream, another Image XObject.
  793.         % Stack: datasource imagemask(false) maskstreamdict
  794.     PDFfile fileposition exch
  795.     dup length dict makeimagedict pop
  796.         % In order to prevent the two data sources from being
  797.         % aliased, we need to make at least one a reusable stream.
  798.         % We pick the mask, since it's smaller (in case we need to
  799.         % read all its data now).
  800.         % Stack: datasource imagemask(false) savedpos
  801.         % maskdict is currentdict
  802.     /DataSource DataSource mark
  803.       /Intent 1
  804.       /AsyncRead true
  805.     .dicttomark .reusablestreamdecode def
  806.     PDFfile exch setfileposition
  807.     currentdict end currentdict end
  808.     5 dict begin
  809.     /ImageType 3 def
  810.     /InterleaveType 3 def
  811.     /DataDict exch def
  812.     /MaskDict exch def
  813.     /ColorSpace DataDict /ColorSpace get def
  814.   } ifelse
  815. } bdef
  816. /doimage {    % <imagemask> doimage -
  817.         % imagedict is currentdict, gets popped from dstack
  818.   DataSource exch
  819.   PDFversion 1.4 ge { currentdict /SMask knownoget } { false } ifelse {
  820.     makesoftmaskimage
  821.   } {
  822.     currentdict /Mask knownoget {
  823.       makemaskimage
  824.     } if
  825.   } ifelse
  826.         % Stack: datasource imagemask
  827.    % image and imagemask can be redefined in gs_init.ps to tweak interpolation
  828.    % after device-specific files are run. Don't bind them here.
  829.    { currentdict end setfillstate /imagemask }
  830.    { ColorSpace setcolorspace currentdict end setfillblend /image }
  831.   ifelse
  832.   .systemvar exec
  833.    
  834.         % Close the input stream, unless it is PDFfile or
  835.         % PDFsource.
  836.   dup dup PDFfile eq exch PDFsource eq or { pop } { closefile } ifelse
  837. } bdef
  838.  
  839. /.paintform {    % <formdict> <resdict> <stream> .paintform -
  840.   3 -1 roll dup /Group known {
  841.     .paintgroupform
  842.   } {
  843.     pop pdfopdict .pdfruncontext
  844.   } ifelse
  845. } bdef
  846.  
  847. /DoForm {
  848.     % Adobe 2nd edition of the PDF 1.3 spec makes /FormType
  849.     % and /Matrix keys optional. Cope with the missing keys.
  850.   dup length
  851.   1 index /Matrix known
  852.     { dict
  853.     }
  854.     { 1 add dict
  855.       dup /Matrix { 1 0 0 1 0 0 } cvlit put
  856.     }
  857.   ifelse
  858.   copy
  859.   dup /FormType known not {
  860.     dup length 1 add dict copy dup /FormType 1 put
  861.   } if
  862.  
  863.   dup [ 2 index /Resources knownoget { oforce } { 0 dict } ifelse
  864.   3 index false /resolvestream cvx
  865.   /.paintform cvx
  866.   ] cvx /PaintProc exch put
  867.   execform
  868. } bdef
  869.  
  870. /DoPS {
  871.   true resolvestream cvx exec
  872. } bdef
  873.  
  874. drawopdict begin
  875.   /Do {
  876.     setfillblend
  877.     PDFfile fileposition exch
  878.     dup Page /XObject rget { 
  879.       exch pop dup /Subtype get xobjectprocs exch get
  880.         % Don't leave extra objects on the stack while executing
  881.         % the definition of the form.
  882.       3 -1 roll 2 .execn
  883.     } {
  884.         % This should cause an error, but Acrobat Reader can
  885.         % continue, so we do too.
  886.       (%stderr) (w) file
  887.       dup (****************Undefined XObject resource: ) writestring 
  888.       dup 3 -1 roll write===
  889.       flushfile
  890.     } ifelse
  891.     PDFfile exch setfileposition
  892.   } bdef
  893. end
  894.  
  895. % ---------------- In-line images ---------------- %
  896.  
  897. % Undo the abbreviations in an in-line image dictionary.
  898. % Note that we must look inside array values.
  899. % /I is context-dependent.
  900. /unabbrevkeydict mark
  901.   /BPC /BitsPerComponent  /CS /ColorSpace  /D /Decode  /DP /DecodeParms
  902.   /F /Filter  /H /Height  /I /Interpolate  /IM /ImageMask  /W /Width
  903. .dicttomark readonly def
  904. /unabbrevvaluedict mark
  905.   /AHx /ASCIIHexDecode  /A85 /ASCII85Decode  /CC /CalCMYK
  906.   /CCF /CCITTFaxDecode  /CG /CalGray  /CR /CalRGB
  907.   /DCT /DCTDecode  /CMYK /DeviceCMYK  /Fl /FlateDecode
  908.   /G /DeviceGray  /RGB /DeviceRGB
  909.   /I /Indexed  /LZW /LZWDecode  /RL /RunLengthDecode
  910. .dicttomark readonly def
  911. /unabbrevtypedict mark
  912.   /nametype {
  913.     //unabbrevvaluedict 1 index .knownget { exch pop } if
  914.   }
  915.   /arraytype {
  916.     dup 0 1 2 index length 1 sub {
  917.       2 copy get unabbrevvalue put dup
  918.     } for pop
  919.   }
  920. .dicttomark readonly def
  921. /unabbrevvalue {    % <obj> unabbrevvalue <obj'>
  922.   oforce //unabbrevtypedict 1 index type .knownget { exec } if
  923. } bdef
  924.  
  925. drawopdict begin
  926.   /BI { mark } bdef
  927.   /ID {
  928.     counttomark 2 idiv dup 6 add dict begin {
  929.       exch //unabbrevkeydict 1 index .knownget { exch pop } if
  930.       exch unabbrevvalue def
  931.     } repeat pop
  932.     /File PDFsource def
  933.     currentdict makeimagekeys doimage    
  934.     % The Adobe documentation says that the data following ID
  935.     % consists of "lines", and some PDF files (specifically, some files
  936.     % produced by PCL2PDF from Visual Software) contain garbage bytes
  937.     % between the last byte of valid data and an EOL.
  938.         % Some files (PDFOUT v3.8d by GenText) have EI immediately following
  939.         % the stream. Some have no EOL and garbage bytes.
  940.         % Therefore, we skip all bytes before EI or EOL 
  941.     0
  942.       { PDFsource read not { //true exit } if
  943.         dup 10 eq 1 index 13 eq or
  944.           { pop PDFsource token pop /EI ne exit
  945.           }
  946.         if
  947.         exch 69 eq 1 index 73 eq and { //false exit } if  % 'EI'
  948.       }
  949.     loop
  950.     exch pop
  951.       { /ID cvx /syntaxerror signalerror
  952.       }
  953.     if
  954.   } bdef
  955. end
  956.  
  957. % ================================ Text ================================ %
  958.  
  959. drawopdict begin
  960.             % Text control
  961.   /BT { BT } def
  962.   /ET { ET } def
  963.   /Tc { Tc } def
  964.   /TL { TL } def
  965.   /Tr { Tr } def
  966.   /Ts { Ts } def
  967.   /Tw { Tw } def
  968.   /Tz { Tz } def
  969.             % Text positioning
  970.   /Td { Td } def
  971.   /TD { TD } def
  972.   /Tm { Tm } def
  973.   /T* { T* } def
  974.             % Text painting
  975.   /Tj { Tj } def
  976.   /' { ' } def
  977.   /" { " } def
  978.   /TJ { TJ } def
  979. end
  980.  
  981. % ============================== Annotations ============================== %
  982.  
  983.  
  984.  
  985. % Get and normalize an annotation's rectangle.
  986. /annotrect {        % <annot> annotrect <x> <y> <w> <h>
  987.   /Rect get aload pop
  988.   exch 3 index sub dup 0 lt { dup 5 -1 roll add 4 1 roll neg } if
  989.   exch 2 index sub dup 0 lt { dup 4 -1 roll add 3 1 roll neg } if
  990. } bdef
  991.  
  992. % Set an annotation color.
  993. /annotsetcolor {    % <annot> annotsetcolor -
  994.   /C knownoget { aload pop setrgbcolor } { 0 setgray } ifelse
  995. } bdef
  996.  
  997. % Draw the border.  Currently, we ignore requests for beveling, and we
  998. % don't round the corners of rectangles.
  999. /strokeborder {        % <annot> <width> <dash> strokeborder -
  1000.   1 index 0 ne {    % do not draw if border width is 0
  1001.     gsave
  1002.     2 index annotsetcolor
  1003.     0 setdash dup setlinewidth
  1004.     exch annotrect
  1005.     2 { 4 index sub 4 1 roll } repeat
  1006.     2 { 4 index 0.5 mul add 4 1 roll } repeat
  1007.     rectstroke pop
  1008.     grestore
  1009.   } {
  1010.     pop pop pop
  1011.   } ifelse
  1012. } bdef
  1013.  
  1014. % Draw an annotation border.
  1015. /drawborder {        % <annot> drawborder -
  1016.   gsave
  1017.   dup /BS knownoget {
  1018.     dup /W knownoget not { 1 } if
  1019.     [] 2 index /S knownoget {
  1020.       /D eq { 2 index /D knownoget not { [3] } if exch pop } if
  1021.     } if 3 -1 roll pop strokeborder
  1022.   } {
  1023.     dup /Border knownoget {
  1024.       dup 2 get
  1025.       exch dup length 3 gt { 3 get } { pop [] } ifelse
  1026.       strokeborder
  1027.     } {
  1028.       pop
  1029.     } ifelse
  1030.   } ifelse
  1031.   grestore
  1032. } bdef
  1033.  
  1034. %
  1035. %   The PDF annotation F (flags) integer is bit encoded.
  1036. %   Bit 1 (LSB) Invisible:  1 --> Do not display if no handler.
  1037. %         Note:  We have no handlers but we ignore this bit.
  1038. %   Bit 2 Hidden:  1 --> Do not display.  We will not display if this bit is set.
  1039. %   Bit 3 Print:  1 --> Display if printing.  We will display if this bit set
  1040. %         (and not hidden) and Printed is true
  1041. %   Bit 4 NoZoom:  1 --> Do not zoom annotation even if image is zoomed.
  1042. %   Bit 5 NoRotate:  1 --> Do not rotate annotation even if image is rotated.
  1043. %   Bit 6 NoView:  0 --> Display if this is a 'viewer'.  We will display
  1044. %         if this bit is not set (and not hidden) and Printed is false
  1045. %   Bit 7 Read Only - 1 --> No interaction.  We ignore this bit
  1046. %
  1047. /annotvisible {            % <annot> annotvisible <visible>
  1048.   /F knownoget not { 0 } if         % Get flag value
  1049.   dup 2 and 0 eq              % Check hidden flag
  1050.   exch dup 4 and 0 ne Printed and    % Check print flag
  1051.   exch 64 and 0 eq Printed not and    % Check noview flag
  1052.   or                    % Combine print and view
  1053.   and                     % Combine with 'hidden' flag test
  1054. } bdef
  1055.  
  1056. /drawwidget {            % <scalefactor> <annot> drawwidget -
  1057.   dup /AP knownoget {
  1058.     % Always use the Normal appearance.
  1059.     /N oget
  1060.         % Acrobat Distiller produces files in which this Form
  1061.         % XObject lacks Type and Subtype keys.  This is illegal,
  1062.         % but Acrobat Reader accepts it.  The only way we can
  1063.         % tell whether this is a Form or a set of sub-appearances
  1064.         % is by testing for the stream Length key.
  1065.     dup /Length known {
  1066.               % If this is a form then simply use it
  1067.       true
  1068.     } {
  1069.       1 index /AS knownoget not {
  1070.               % If we do not have AS then use any appearance
  1071.     { exch pop oforce exit } forall true
  1072.       } { 
  1073.         % Stack: annot Ndict AS
  1074.         % Get the specified appearance.  If no appearance, then
  1075.         % display nothing - set stack = false.
  1076.     knownoget
  1077.       } ifelse
  1078.     } ifelse
  1079.  
  1080.         % Stack: scale annot appearance true
  1081.         % Stack: scale annot false
  1082.     {
  1083.               % Draw appearance
  1084.       1 index annotrect pop pop translate
  1085.       2 index dup scale        % Apply scale factor
  1086.       DoForm
  1087.     } if
  1088.   } if pop pop
  1089. } bdef
  1090.  
  1091. %
  1092. %  For stamp object we have to determine the size of the output rectangle
  1093. %  and the size of the BBox for the stamp image.  From these we calculate
  1094. %  a scale factor for drawing the stamp.
  1095. %
  1096. /calcstampscale {        % <annot> calcstampscale scale
  1097.   dup annotrect 4 -2 roll pop pop pop    % get x width
  1098.   dup 0 lt { neg } if        % get magnitude
  1099.   exch /AP knownoget {
  1100.     /N knownoget {
  1101.       /BBox knownoget {
  1102.          aload pop 4 -2 roll pop pop pop
  1103.          div
  1104.       } {
  1105.         pop 1            % default to unity scaling
  1106.       } ifelse            % if we have /BBox
  1107.     } {
  1108.       pop 1
  1109.     } ifelse            % if we have /N
  1110.   } {
  1111.     pop 1
  1112.   } ifelse            % if we have /AP
  1113. } bdef
  1114.  
  1115. /drawlink {            % <annot> drawlink -
  1116.   dup drawborder
  1117.   1 exch drawwidget
  1118. } bdef
  1119.  
  1120. % Draw an annotation.
  1121. /drawannottypes mark
  1122.   /Link { drawlink } bind
  1123.   /Stamp { dup calcstampscale exch drawwidget } bind
  1124. .dicttomark readonly def
  1125. /drawannot {        % <annot> drawannot -
  1126.   dup annotvisible {
  1127.     gsave
  1128.     dup dup /Subtype get //drawannottypes exch .knownget {
  1129.       exec
  1130.     } {
  1131.       1 exch drawwidget        % Use drawwidget for everything else
  1132.     } ifelse            % type known
  1133.     grestore
  1134.   } if pop            % annotvisible
  1135. } bdef
  1136. currentdict /drawannottypes undef
  1137.  
  1138. end            % pdfdict
  1139. end            % GS_PDF_ProcSet
  1140. .setglobal
  1141.